L
JOB 39    Stanford 6.13A   7-30-73
#  1,DBL

EXIT
↑C
.R TALKER
Site:	SRAI

Connection established

 SRI AIC-TENEX 1.29.43   22 FEB 73 EXEC 1.42.06
@
@LOG
LOG
(USER) LENAT
LENAT
(PASSWORD) DL

(ACCOUNT) 1
1
 JOB 6 ON TTY42 1-AUG-73 9:49
1-AUG-73 8:36:00,643
-------
DATE:  1-AUG-73  836
FROM: SAGALOWICZ
RE:   DISPLAY
- - - -
A NEW DISPLAY SOFTWARE IS NOW IN THE PDP15 SO-CALLED MONITOR. BESIDES
A NEW MEMORY MANAGEMENT, THE MAIN DIFFERENCE FOR THE USERS IS FOR
"READ BUTTONS":NOW THE MOUSE POSITION IS GIVEN ONLY AFTER THE
LAST BUTTON HAS BEEN PULLED BACK .THIS IS ALSO TRUE FOR THE "IF
BUTTONS" COMMAND WHICH WILL GIVE THE POSITION OF THE MOUSE IF AT LEAST
ONE BUTTON HAS BEEN PUSHED AND THEN ALL THE BUTTONS HAVE BEEN PULLED
BACK. THIS MODIFICATION WAS DONE IN ORDER TO GET 8 BITS OF INFORMATION
OUT OF THE 3 BUTTONS (INSTEAD OF ONLY 3 BITS OF INFORMATION).
HAVE A NICE DAY.
-------

@LISP
LISP

INTERLISP-10  07-07-73 ...


HELLO.
←SYSIN(<SAC␈FQLISP.SYS]
SYSIN(<SAC↑FQLISP.SYS]
(<SACERDOTI>QLISP.SYS;20)
QHELLO
←
LOAD(PAT)
LOAD(PAT)
FILE CREATED 31-JUL-73 14:47:02
PATFNS
PATVARS
INITIALIZE:
QA4:ARG= NIL
(END OF INITIALIZATION PROCESS)
(INITIALIZE) = (END OF INITIALIZATION PROCESS)
(WE ARE READY)
PAT.;1
←
$FF
$FF
((FOR QQ IN (QUOTE (2 5 1)) COLLECT (ADD1 (TIMES 3 QQ))) (FOR II FROM
1 UNTIL (II GT ?N) COLLECT (TIMES II 2)) (CONS (QUOTE MULTIPLE) (FOR
JJ FROM 1 UNTIL ((TIMES 3 JJ) GT ?N) COLLECT (FLATTEN (LIST TUPLE
(TIMES 2 JJ) (ADD1 (TIMES 2 JJ)) (QUOTE X) (FOR KK FROM JJ UNTIL (KK
GT (TIMES 2 JJ)) COLLECT (LIST (PLUS KK 5) (PLUS KK 6) (QUOTE X))))))))
←$GG
$GG
((7 16 4) (2 4 6 8 10 12 14 16 18 20 22 24 26 28 30) (4 5 X 7 8 X
8 9 X 9 10 X))
←(SMATCHQ $FF $GG)
(SMATCHQ $FF $GG)
SMATCHQ:
QA4:ARG= (((FOR QQ IN (QUOTE (2 5 1)) COLLECT (ADD1 (TIMES 3 QQ)))
(FOR II FROM 1 UNTIL (II GT ?N) COLLECT (TIMES II 2)) (CONS (QUOTE
MULTIPLE) (FOR JJ FROM 1 UNTIL ((TIMES 3 JJ) GT ?N) COLLECT (FLATTEN
(LIST TUPLE (TIMES 2 JJ) (ADD1 (TIMES 2 JJ)) (QUOTE X) (FOR KK FROM
JJ UNTIL (KK GT (TIMES 2 JJ)) COLLECT (LIST (PLUS KK 5) (PLUS KK 6)
(QUOTE X)))))))) ((7 16 4) (2 4 6 8 10 12 14 16 18 20 22 24 26 28
30) (4 5 X 7 8 X 8 9 X 9 10 X)))
(A COMPLEX MATCH IS REQUIRED)
(THE ARGUMENTS B AND A ARE)
((FOR QQ IN (QUOTE (2 5 1)) COLLECT (ADD1 (TIMES 3 QQ))) (FOR II FROM
1 UNTIL (II GT ?N) COLLECT (TIMES II 2)) (CONS (QUOTE MULTIPLE) (FOR
JJ FROM 1 UNTIL ((TIMES 3 JJ) GT ?N) COLLECT (FLATTEN (LIST TUPLE
(TIMES 2 JJ) (ADD1 (TIMES 2 JJ)) (QUOTE X) (FOR KK FROM JJ UNTIL (KK
GT (TIMES 2 JJ)) COLLECT (LIST (PLUS KK 5) (PLUS KK 6) (QUOTE X))))))))
((7 16 4) (2 4 6 8 10 12 14 16 18 20 22 24 26 28 30) (4 5 X 7 8 X
8 9 X 9 10 X))
(X AND Y ARE)
(7 16 4)
(FOR QQ IN (QUOTE (2 5 1)) COLLECT (ADD1 (TIMES 3 QQ)))
N
3
(WE EVAL Y AND GET)
(7 16 4)
(YY IS)
((7 16 4))
(THE MATCH SUCCEEDED FOR THIS ARGUMENT)
(X AND Y ARE)
(2 4 6 8 10 12 14 16 18 20 22 24 26 28 30)
(FOR II FROM 1 UNTIL (II GT ?N) COLLECT (TIMES II 2))
N
15
(WE EVAL Y AND GET)
(2 4 6 8 10 12 14 16 18 20 22 24 26 28 30)
(YY IS)
((2 4 6 8 10 12 14 16 18 20 22 24 26 28 30))
(THE MATCH SUCCEEDED FOR THIS ARGUMENT)
(X AND Y ARE)
(4 5 X 7 8 X 8 9 X 9 10 X)
(CONS (QUOTE MULTIPLE) (FOR JJ FROM 1 UNTIL ((TIMES 3 JJ) GT ?N) COLLECT
(FLATTEN (LIST TUPLE (TIMES 2 JJ) (ADD1 (TIMES 2 JJ)) (QUOTE X) (FOR
KK FROM JJ UNTIL (KK GT (TIMES 2 JJ)) COLLECT (LIST (PLUS KK 5) (PLUS
KK 6) (QUOTE X)))))))
N
12
(WE EVAL Y AND GET)
(MULTIPLE (TUPLE 2 3 X 6 7 X 7 8 X) (TUPLE 4 5 X 7 8 X 8 9 X 9 10
X) (TUPLE 6 7 X 8 9 X 9 10 X 10 11 X 11 12 X) (TUPLE 8 9 X 9 10 X
10 11 X 11 12 X 12 13 X 13 14 X))
(YY IS)
((MULTIPLE (2 3 X 6 7 X 7 8 X) (4 5 X 7 8 X 8 9 X 9 10 X) (6 7 X 8
9 X 9 10 X 10 11 X 11 12 X) (8 9 X 9 10 X 10 11 X 11 12 X 12 13 X
13 14 X)))
(WE HAVE A MULTIPLE (NONDETERMINISTIC) MATCH)
(Z IS)
(2 3 X 6 7 X 7 8 X)
(SORRY THIS DIDNT MATCH X)
(Z IS)
(4 5 X 7 8 X 8 9 X 9 10 X)
(THE MATCH SUCCEEDED FOR THIS ARGUMENT)
(SMATCHQ) = (((7 16 4)) ((2 4 6 8 10 12 14 16 18 20 22 24 26 28 30))
((4 5 X 7 8 X 8 9 X 9 10 X)))
(((7 16 4)) ((2 4 6 8 10 12 14 16 18 20 22 24 26 28 30)) ((4 5 X 7
8 X 8 9 X 9 10 X)))
←


(SMATCHQ (TUPLE A ←B C ←←D) (TUPLE A (CLASS E E K) C D (BAG 1 3 0]
(SMATCHQ (TUPLE A ←B C ←←D) (TUPLE A (CLASS E E K) C D (BAG 1 3 0]
SMATCHQ:
QA4:ARG= ((A ←B C ←←D) (A (CLASS E K) C D (BAG 0 1 3)))
(SMATCHQ) = (A (CLASS E K) C D (BAG 0 1 3))
(A (CLASS E K) C D (BAG 0 1 3))
←
$B
$B
UNBOUND VARIABLE
B

←$D
$D
(D (BAG 0 1 3))
←(SMATCHQ (TUPLE A B ←←C ←D) (TUPLE A NOPE B CC DD]
(SMATCHQ (TUPLE A B ←←C ←D) (TUPLE A NOPE B CC DD]
SMATCHQ:
QA4:ARG= ((A B ←←C ←D) (A NOPE B CC DD))
(APPARENTLY A SIMPLE MATCH WHICH FAILED)
FAILURE
←
(LOGOUT)
(LOGOUT)
@
@FTPUSR
FTPUSR
SRI-AI FTP USER PROCESS 1.18.0
*CONN SU-AI
CONN SU-AI
 CONNECTION OPENED
 ASSUMING 8-BIT CONNECTIONS.

*< SU-AI FTP SERVER  3.7 -- AT 1-AUG-73  0957
*LOG 1,DBL
LOG 1,DBL
*SEND PAT
SEND PAT⎇↑[
 TO REMOTE-FILE ⎇PAT.
< STOR COMMAND OK, PLEASE BEGIN TRANSFER
< DATA TRANSFER COMPLETE, FROM YOU TO US

5740. BYTES TRANSFERRED, RUN TIME = 2690. MS,
 ELAPSED TIME = 5866. MS, RATE = 7828. BAUD.

*DISCON
DISCON
*QUIT
QUIT
@LOGOUT
LOGOUT
KILLED JOB 6, USER LENAT, ACCT 1, TTY 42, AT  8/01/73  959
  USED 0:0:57 IN 0:9:55